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AAAAAAAAA 
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AAA AaB 
AAA AAR 
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AA AKA 
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AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
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ym 
*+F ILE®®1D**PASFVINPU 

| 
PPPPPPPP AAAAAA SSSSSSSS FFFFFFFFFE VV VW soTIIIIT NN NN PPPPPPPP WU UU | 
PPPPPPPP AAAAAA SSSSSSSS FFFFFFFFFF VV vw soTTIIIT =—NN NN PPPPPPPP WU UU 
PP PP AA AA SS FF WV WV 11 NN NN PP PP UU UU | 
PP PP AA AA SS FF VV WV 11 NN N PP PP UU UU | 
PP PP AA AA SS FF WV WV II NNNN NN. PP PP UU UU | 
PP PP AA AA SS FF vv vv II NNNN NN PP PP UU UU 
PPPPPPPP AA AA SSSSSS_—séFFFFFFFF © OV WV II NN NN NN PPPPPPPP UU UU | 
PPPPPPPP = AA AA SSSSSS__sFFFFFFFF © VV WV 11 NN NN NN PPPPPPPP = UU UU | 
PP AAAAAAAAAA SS FF VV VV II NN NNNN PP UU UU 
pP AAAAAAAAAA SS FF WwW WwW 11 NN NNNN PP UU UU 
PP AA AA SS FF vow II NN NN PP UU UU a. 
PP AA AA SS FF VV VV II NN NN PP UU UU eoee 
PP AA AA SSSSSSSS_ FF WV IIIII1 NN NN PP UUUUUUUUUU coat 
PP AA AA SSSSSSSS_—FF WW 111111 NN NN PP UUUUUUUUUU ace 
LL HII SSSSSSSS | 
LL HII SSSSSSSS 
tL 1] SS | 
LL 11 S$ 
iL 1] SS 
Lt 11 SS 
LL 11 SSSSSS 
LL 11 SSSSSS 
LL 11 $$ 
LL 1] SS 
LL 11 5S 
LL 11 $$ 
LLLLLLLLLL ‘TIIIII «= SSSSSSSS 
LLLLLLELLE «= sTNEI «= SSSSSSSS 
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; 1 001 MODULE PASSFV_INPUT ( &TITL ‘File Variable INPUT‘ 

; § Oe sD ENT = ‘1-001' ! File: PASFVINPU.B32 Edit: SB8L1001 
ea BBS ee 

: § Bone ; SRR A AAA A RARE EAAAAREAAAAAAEEAAATAETEAEEAAEAAAAAAAAAAAEAEEEEERE EERE 
; 0 '® 

8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY “ 
= 0009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 Bats : = ALL RIGHTS RESERVED. * 
3 : * 
3 \¢ Bog 1 !e phat SOFTWARE IS FURNISHED UNOES A LICENSE AND MAY BE USED AND copteD * 
ay 015 1 Ie Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH * 
; 0014 1 !« ONELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
. ~ Bat? 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 1g 016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i? SEA : » TRANSFERRED. * 
3 ‘® ® 
; 19 0019 1 !* pi INFORMATION IN THIS SOFTWARE 'S SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* SHOULD NOT BE CONSTRUED As A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 o36! ! ee CORPORATION. * 
Py :* * 
3 $§ $038 1 !'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; @«& 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 25 0025 1 !«* > 
; 0026 1 !* * 
: ra 0027 1 i eee ee eeeeeRee eee eReeReReKReRee kee eeeeeeeeeeateeeeneeeeeneeeeeeeeeeeeeeeeeee 
; @ 0028 1! 

; @& 594 1 

; 2» 0030 1 !++ : 

we 0031 1 ! FACILITY: VAX-11 Pascal Run-Time Library 

g 3 oT) 1! 

; 3 00353 1 ! ABSTRACT: 

3 34 0034 1! 

; 2 0035 1! This module contains the global Pascal File Variable INPUT (PFV), 

; » 0036 1! along with its associated Pascal File Descriptor (PFD) block. 

a 0037 1! This verwgnte is referenced by VAX-11 Pascal programs as the 

> a 0038 1! file INPU 

; #39 0039 1! 

; re srk : ENVIRONMENT: Contains no code. 

3 $¢ ane : : AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

: 44 0044 1 ! MODIFIED BY: 

>; «(45 0045 1! 

: 46 0046 1 ! 1-001 - Original. SBL 1-April-1981 

er 0047 1 !-- 

; 48 0048 1 
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16-Sep-1984 01:36: AX-11 Bliss-32 V4.0-74 
ions 12788-1382 93:89:89 PASRTL  $ReIPASFVINGU. B82: 1 


ADDRESSING_MODE (LONG_RELATIVE)); 


PASSEY INPUT SPASSPFV_FILE_VARIABLE PSECT (_PASSSFILE_VARS) 

= PFVSK_CUR_VERSION, 

= (PFD_INPUT = PASSFV_INPUT), 

= (BUFFER_INPUT = PASSFV_INPUT) 

\+ 

: Define enough bytes of storage space to pad PASSFV_INPUT to 32 bytes. 


! This is so that it can be expanded to 32 bytes without affecting its 
location in the vector. 


OWN 
PAD_SPACE: VECTOR C32=PFVSK_SIZE, BYTE] PSECT (_PASSSFILE_VARS); 


ND ! End of module PASSFV_INPUT 


E 
ELUDOM 


TITLE PASSFV_INPUT File Variable INPUT 
-IDENT \1-001% 


~PSECT _PASSSFILE_VARS,NOEXE, PIC,2 


00000000* 00000 PAS$FV_INPUT:: 
LONG <BUFFER_INPUT-PASSFV_INPUT> 


00 00004 -BYTE 0 
00# 00005 BYTE OC2] 
18 00007 -BYTE 
00000000* 00008 + One SPtD PT“ PASSPY LMP 


00010 PAD_SPACE: 


-PSECT _PASSDATA,NOEXE, PIC,2 


00000 BUF FER_INPUT: 
-BLKB 1 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


YTE 9f43 
61 00004 BYTE 9 
00# 00005 BYTE 0C3] 
00000001 00008 -LONG 
54 55 50 4E 49 05 0000C -BYTE 5, 73, 78, 80, 85, 84 


N 11 
PASSFV_INPUT File Variable INPUT 16-Sep-1984 01: 3 AX=-11 Bliss-32 V4.0-74 Page 
A801 Declarations 12: 1382 93: 36: $3 PASRTL. REIPASFY VINPU.632;1 . 
; PSECT SUMMARY 
; Name Bytes Attributes 
: “PASSCODE i NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: —PASSDA N T, RO ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: ~pASSSF ILE VARS 3) NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
EA eee eee oe Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 9 0 581 00:00.9 
; _$255$DUA28: CPASRTL.OBJIJPASLIB.L32;1 427 4 10 33 00:00.4 
b COMMAND QUALIFIERS 
; SES ECMECE OEE SUE SEEM, PTE ES DAE ERLE AA, FO, EES PRET POR TR IS TT CTY MSRC$:PASF VINPU/UPDATE=(ENH$:PASFVINPU 
3; Size: code + 51 data bytes 
; Run Time: 00:03.5 
; Elapsed Time: 00:17.1 
; Lines/CPU Min: 3263 
3 ,ouonea/SPu “tite: 14158 
: peasy Used: 36 pages 
; Compilation Complete 


4 
(2). 
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